The VBA UCASE Function converts a character string to uppercase.
UCase(text)
Converting a string to uppercase:
Sub UCaseExample()
text = "Ref-45-X-876-rt"
text = UCase(text)
MsgBox text 'Returns: REF-45-X-876-RT
End Sub